home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / InstallerFX.lha / InstallerFX / Examples / Fade Example < prev    next >
Text File  |  1997-06-28  |  2KB  |  103 lines
  1. ; InstallerFX script
  2.  
  3. (onerror (CLEANUP))
  4.  
  5. ; Cleanup any temporary mess we created
  6. (procedure CLEANUP
  7.     ; Nothing to cleanup
  8.     (delete "t:Background")
  9.     (delete "t:Background.prefs")
  10.     (delete "t:Logopic")
  11.     (delete "t:Logopic.prefs")
  12. ) ; CLEANUP
  13.  
  14. (set @user-level 0)
  15.  
  16. ;(set Opt 3)
  17. ;(complete 0)
  18.  
  19. (copyfiles
  20.     (source "InstallerFX/Bluefade.iff")
  21.     (dest "t:")
  22.     (newname "Background")
  23. )
  24.  
  25. (copyfiles
  26.     (source "InstallerFX/Background.prefs")
  27.     (dest "t:")
  28.     (newname "Background.prefs")
  29. )
  30.  
  31. (run "run InstallerFX/InstallerFX t:background")
  32.  
  33. (set @user-level 2)
  34.  
  35. ;Get directory to install test to:
  36. (set destdir 
  37.     (askdir 
  38.         (prompt "In which drawer should testfiles be installed?") 
  39.         (help @askdir-help)
  40.         (default ("t:"))
  41.     )
  42. )
  43.  
  44. (copyfiles
  45.     (source "InstallerFX/MagicSelector.iff")
  46.     (dest "t:")
  47.     (newname "Logopic")
  48. )
  49.  
  50. (copyfiles
  51.     (source "InstallerFX/MagicSelector.prefs")
  52.     (dest "t:")
  53.     (newname "Logopic.prefs")
  54. )
  55.  
  56. (run "run InstallerFX/InstallerFX t:Logopic")
  57.  
  58. (complete 10)
  59.  
  60. (set installfiles
  61.     (askoptions
  62.         (prompt "Which of the following optional programs/helpfile should be installed ?")
  63.         (help @askoptions-help)
  64.         (choices "InstallerFX")
  65.         (default Opt)
  66.     )
  67. )
  68.  
  69. (complete 50)
  70.  
  71. ;Copy program files to destination.
  72.  
  73. (if (BITAND installfiles 1)
  74. (copyfiles
  75.     (source "InstallerFX")
  76.     (dest destdir)
  77.     (all)
  78. )
  79. )
  80.  
  81. (set installfiles
  82.     (askoptions
  83.         (prompt "Which of the following optional programs/helpfile should be installed ?")
  84.         (help @askoptions-help)
  85.         (choices "InstallerFX")
  86.         (default Opt)
  87.     )
  88. )
  89.  
  90.  
  91. (if (BITAND installfiles 1)
  92. (copyfiles
  93.     (source "InstallerFX")
  94.     (dest destdir)
  95.     (all)
  96. )    
  97. )
  98.  
  99. (complete 100)
  100.  
  101. (CLEANUP)
  102. (exit)
  103.